home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1016 < prev    next >
Text File  |  1996-11-01  |  1KB  |  22 lines
  1. /strtp{dup length dup -8 bitshift ct2 ctz 3 -1 roll put 255 and
  2.  ct2 ctz 1 add 3 -1 roll put ct2 copy pop setclp}B
  3. /endp{ct2 ctz ct0 putinterval setclp}B
  4. /kp{ct1 0 2 index length 2 index 99 2 index put getinterval copy cvx exec
  5.  mtx1 currentmatrix pop cps np mif}B
  6. /ptc{cmykprsnt{currentcmykcolor 4}{currentrgbcolor 3}ifelse
  7.  -1 1{exch 255 mul cvi bkc 3 1 roll put}for}B
  8. /gtc{1 1 cmykprsnt{4}{3}ifelse{bkc exch get 255. div}for
  9.  cmykprsnt{setcmykcolor}{R}ifelse}B
  10. /crntc{regsh 0 lt custprsnt not and
  11.  {cmykprsnt{currentcmykcolor}{currentgray}ifelse}if
  12.  custar aload pop pop custnamstr 79 get custsh custprsnt regsh
  13.  }def
  14. /setc{/regsh X/custprsnt X/custsh X custnamstr 0 3 -1 roll getinterval custar astore pop
  15.  regsh 0 ge{regsh setseparationgray}{custprsnt{custar custsh setcustomcolor}
  16.  {cmykprsnt{setcmykcolor}{H}ifelse}ifelse}ifelse
  17.  }def
  18. /h{currentpoint exch pop m}B
  19. /ply{m{currentfile str readline pop cvr dup -32767 eq{pop exit}
  20.  {currentfile str readline pop cvr l}ifelse}loop}B
  21. /crs{g o np m l n np m l n G}B
  22.